-- card: 6857 from stack: in
-- bmap block id: 7046
-- flags: 0000
-- background id: 2696
-- name: Menus
----- HyperTalk script -----
on closeCard
  lock screen
  repeat with b = 1 to 4
    set name of button b to empty
    hide card button (b + 4)
  end repeat
  pass closeCard
end closeCard


-- Thanks to Andrew Gilmartin of Brown University
-- for the popUpMenu XFCN.

-- Pop-up menu next to the button
-- Sets the button name to the item chosen.
-- If nothing chosen, gives feedback explaining how to use pop-up menu
on itemMenu list
  get popUpMenu(list,0,left of card window + right of target, top of card window + top of target)
  if it is not empty then
    set the name of target to item it of list
  else
    answer "Hold the mouse button down, drag it over one of the " & "choices in the list, then let go." with "Oh, I see"
  end if
end itemMenu





-- part 1 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=112 top=128 right=147 bottom=191
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseDown
  itemMenu "acicular,oblong,orbicular,rhomboid,spatulate,ovate"
end mouseDown



-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=61 top=129 right=147 bottom=111
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 3 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=20 top=155 right=173 bottom=111
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=68 top=181 right=199 bottom=111
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=38 top=207 right=225 bottom=111
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 6 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=112 top=154 right=173 bottom=191
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseDown
  itemMenu "opposite,alternate"
end mouseDown



-- part 7 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=112 top=180 right=199 bottom=191
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseDown
  itemMenu "simple,compound"
end mouseDown



-- part 8 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=112 top=206 right=225 bottom=191
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseDown
  itemMenu "parallel,palmate,arcuate,pinnate"
end mouseDown



-- part 9 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=42 top=61 right=110 bottom=208
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 10 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=126 top=93 right=111 bottom=222
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: 


-- part 12 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=379 top=74 right=141 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Answer


-- part 13 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=197 top=128 right=148 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 21653 / 21653
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 14 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=197 top=154 right=174 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 21653 / 21653
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 15 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=197 top=180 right=200 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 21653 / 21653
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 16 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=197 top=206 right=226 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 21653 / 21653
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=48 top=256 right=278 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Check My Answer
----- HyperTalk script -----
on mouseUp
  put 0 into numRight
  repeat with n = 1 to 4
    if the short name of button n = line n of card field "answer" then
      set the icon of button (n+4) to "Smiley"
      add 1 to numRight
    else
      set the icon of button (n+4) to "Frowney"
    end if
    show button (n+4)
  end repeat
  if numRight = 4 then rightSound
end mouseUp



-- part 17 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=347 top=198 right=312 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  select line clickLine() of me
  if the selection is "mouseInHouse" or the selection is "mouseTrap"
  then rightSound
end mouseUp



-- part 18 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=393 top=64 right=164 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  select line clickLine() of me
  if the selection is "il naquit" then rightSound
  else wrongSound
end mouseUp



-- part 19 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=254 top=76 right=113 bottom=380
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 20 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=242 top=198 right=264 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 21 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=89 top=125 right=280 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Info
----- HyperTalk script -----
on mouseUp
  info
end mouseUp


-- part 22 (button)
-- low flags: 00
-- high flags: 2001
-- rect: left=490 top=320 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  info
end mouseUp



-- part contents for card part 2
----- text -----
Shape:

-- part contents for card part 3
----- text -----
Arrangement:

-- part contents for card part 4
----- text -----
Type:

-- part contents for card part 5
----- text -----
Venation:

-- part contents for card part 9
----- text -----
Choose the identifying characteristics of the leaves of the

-- part contents for card part 10
----- text -----
Box Elder.

-- part contents for card part 12
----- text -----
ovate
alternate
simple
pinnate


-- part contents for card part 17
----- text -----
mouse
mouseUp
mouseDown
mouseStillDown
mouseEnter
mouseLeave
mouseWithin
mouseInHouse
mouseClick
mouseV
mouseH
mouseTrap
mouseLoc


-- part contents for card part 18
----- text -----
il naît
il naissant
il naquit
il naîtra
il est né
il sera né


-- part contents for card part 19
----- text -----
Choose the correct conjugation:


-- part contents for card part 20
----- text -----
Which are not real HyperTalk messages or functions?

-- part contents for card part 21
----- text -----
Multi-part feedback allows the user to concentrate only on the parts he missed.

Notice that an explanation is given if the user doesn't select an item after activating a pop-up menu.  This is VERY important for novice users (and helpful for not-so-novice users who might just click and not notice the pop-up menu).